home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCsiod / SIOD / Cxr.scm < prev    next >
Encoding:
Text File  |  1993-08-25  |  1.0 KB  |  40 lines
  1. (define (caar x) (cxr x "aa"))
  2. (define (cadr x) (cxr x "da"))
  3. (define (cdar x) (cxr x "ad"))
  4. (define (cddr x) (cxr x "dd"))
  5.  
  6. (define (caaar x) (cxr x "aaa"))
  7. (define (caadr x) (cxr x "daa"))
  8. (define (cadar x) (cxr x "ada"))
  9. (define (caddr x) (cxr x "dda"))
  10.  
  11. (define (cdaar x) (cxr x "aad"))
  12. (define (cdadr x) (cxr x "dad"))
  13. (define (cddar x) (cxr x "add"))
  14. (define (cdddr x) (cxr x "ddd"))
  15.  
  16. (define (caaaar x) (cxr x "aaaa"))
  17. (define (caaadr x) (cxr x "daaa"))
  18. (define (caadar x) (cxr x "adaa"))
  19. (define (caaddr x) (cxr x "ddaa"))
  20.  
  21. (define (cadaar x) (cxr x "aada"))
  22. (define (cadadr x) (cxr x "dada"))
  23. (define (caddar x) (cxr x "adda"))
  24. (define (cadddr x) (cxr x "ddda"))
  25.  
  26. (define (cdaaar x) (cxr x "aaad"))
  27. (define (cdaadr x) (cxr x "daad"))
  28. (define (cdadar x) (cxr x "adad"))
  29. (define (cdaddr x) (cxr x "ddad"))
  30.  
  31. (define (cddaar x) (cxr x "aadd"))
  32. (define (cddadr x) (cxr x "dadd"))
  33. (define (cdddar x) (cxr x "addd"))
  34. (define (cddddr x) (cxr x "dddd"))
  35.  
  36. (define 1st car)
  37. (define 2nd cadr)
  38. (define 3rd caddr)
  39. (define 4th cadddr)
  40.